﻿Imports System.Windows.Forms

Public Class frmSeriesCriteria

    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub

    Private Sub btnSelectAll_Click(sender As System.Object, e As System.EventArgs) Handles btnSelectAll.Click
        dtStart.Value = dtStart.MinDate
        dtEnd.Value = dtEnd.MaxDate
        txtDepthMin.Text = 0
        txtDepthMax.Text = 9999
        txtWidthMin.Text = 0
        txtWidthMax.Text = 9999
        For i As Integer = 1 To 4
            With CType(Choose(i, lstCCodes, lstLCodes, lstSCodes, lstQCodes), ListBox)
                .ClearSelected()
            End With
        Next
    End Sub
End Class
